home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / raystorm / examples / arexx / checker.ray < prev    next >
Encoding:
Text File  |  1996-07-16  |  1.2 KB  |  55 lines
  1. /***************
  2.  * NAME:        checker.ray
  3.  * DESCRIPTION: Checker texture test
  4.  * AUTHOR:      Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.    address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.    address COMMAND WaitForPort RAYSTORM
  14. END  
  15.  
  16. address RAYSTORM
  17.  
  18. 'TEXTUREPATH /textures'
  19.  
  20. 'SETSCREEN 160 128'
  21. 'SETCAMERA <5,10,10> <0,0,0> <0,1,0> 25 20'
  22. 'SETWORLD [0,0,150]'
  23. 'POINTLIGHT <10,20,20>'
  24.  
  25. 'NEWSURFACE test'
  26. 'SPECULAR [0,0,0]'
  27. 'IMTEXTURE checker.itx <0,0,0> <0,0,0> <.5,.5,.5>'
  28.  
  29. 'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,1,-1>'
  30. 'TRIANGLE test <-1,-1,-1> <-1,1,-1> <1,1,-1>'
  31. 'TRIANGLE test <-1,-1,-1> <-1,-1,1> <-1,1,1>'
  32. 'TRIANGLE test <-1,-1,-1> <-1,1,-1> <-1,1,1>'
  33. 'TRIANGLE test <1,-1,-1>  <1,-1,1>  <1,1,1>'
  34. 'TRIANGLE test <1,-1,-1>  <1,1,-1>  <1,1,1>'
  35. 'TRIANGLE test <1,-1,1>   <-1,-1,1> <-1,1,1>'
  36. 'TRIANGLE test <1,-1,1>   <1,1,1>   <-1,1,1>'
  37. 'TRIANGLE test <-1,1,-1>  <1,1,-1>  <1,1,1>'
  38. 'TRIANGLE test <-1,1,-1>  <-1,1,1>  <1,1,1>'
  39. 'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,-1,1>'
  40. 'TRIANGLE test <-1,-1,-1> <-1,-1,1> <1,-1,1>'
  41.  
  42. 'STARTRENDER QUICK'
  43.  
  44. 'SAVEPIC checker.iff'
  45.  
  46. CLEANUP
  47.  
  48. exit 0
  49.  
  50. error:
  51. say "Error" rc "in line" sigl ":"
  52. GETERRORSTR rc
  53. say result
  54. exit 0
  55.